From: Glenn Morris <rgm@gnu.org>
Date: Wed, 13 Dec 2017 18:55:29 +0000 (-0500)
Subject: * lisp/htmlfontify.el (hfy-which-etags): Fix it.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~21^2~610
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=7e2f4d3d416fc06a4462c8c4c38ec1b54b02611a;p=emacs.git

* lisp/htmlfontify.el (hfy-which-etags): Fix it.
---

diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index 0c5a2477e5d..aa7cf430a4d 100644
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -370,8 +370,8 @@ commands in `hfy-etags-cmd-alist'."
         (when (eq (call-process hfy-etags-bin nil t nil "--version") 0)
           (goto-char (point-min))
           (cond
-           ((looking-at-p "exube") "exuberant ctags")
-           ((looking-at-p "GNU E") "emacs etags")))
+           ((search-forward "exube" nil t) "exuberant ctags")
+           ((search-forward "GNU E" nil t) "emacs etags")))
       ;; Return nil if the etags binary isn't executable (Bug#25468).
       (file-error nil))))